home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 2 / ACE CD 2.iso / FILES / GAMES / 1-L / FUNS4U52.DMS / FUNS4U52.adf / Teddy Books.AMOS / Teddy Books.amosSourceCode < prev   
AMOS Source Code  |  1991-10-20  |  13KB  |  381 lines
  1. Break Off : Key Speed 255,255 : Screen Open 0,320,200,16,Lowres : Curs Off : Flash Off : Cls 0 : Screen Hide 0
  2. Dim SCB(7),USED(8),RO(6),GS(8,2),RD(8),SX(7),SY(7),TX(6),TY(6),X(7),Y(7)
  3. Reserve As Chip Work 6,12500 : Bload "sound/mod.books",6
  4. Reserve As Chip Work 7,4200 : Bload "sound/mod.books.nt",7
  5. Sload Start(6),Start(7)
  6. Hide On : INIT : GTDTA
  7. LEVEL=1
  8. STRT:
  9. Unpack 16 To 0 : Screen Hide 0
  10. For Z=1 To 8 : USED(Z)=0 : GS(Z,1)=0 : GS(Z,2)=0 : Next Z
  11. Palette $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
  12. Timer=0 : PASSED=1 : Bob 7,268,38,24 : Bob 8,256,74,26 : Channel 7 To Bob 7 : Channel 8 To Bob 8
  13. For Z=1 To 6 : Bob Z,TX(Z),TY(Z),13 : Channel Z To Bob Z : Wait Vbl : Next Z
  14. For Z=9 To 15 : Bob Z,SX(Z-8),SY(Z-8),18 : Channel Z To Bob Z : Next Z
  15. Screen Show 0 : Double Buffer 
  16. If LEVEL<3 Then TRIES=3 : BOOKT=6 : Else TRIES=5 : BOOKT=8
  17. If LEVEL=3 : LIMLVL=2 : End If 
  18. If LEVEL=4 : LIMLVL=4 : End If 
  19. If LEVEL>2
  20. RO=1 : RANDOM[6]
  21.    For Z=1 To 6 : RO(Z)=RD(Z) : Next Z
  22. End If 
  23. RANDOM[BOOKT]
  24. For Z=1 To BOOKT : GS(Z,1)=RD(Z) : RD(Z)=Z : Next Z
  25. If LEVEL>1 : RANDOM[BOOKT]
  26.    For Z=1 To BOOKT : GS(Z,1)=RD(Z) : Next Z
  27. End If 
  28. CRECT=0
  29.  TRY=0
  30. AGAIN:
  31. For Z=PASSED To BOOKT : If GS(Z,2)=0 : PASSED=Z : BOOKREAD=GS(Z,1) : Exit : End If : Next Z
  32. On LEVEL Proc BOOKL1,BOOKL2,BOOKL3,BOOKL4
  33. P$="Which book is Daddy Ted reading?" : Gosub PRNTIT : IPX=PL+17 : Clear Key 
  34. Update : Wait Vbl 
  35. Fade 3,$0,$EEE,$8AA,$244,$4A4,$80,$64C,$42A,$E86,$E64,$EE0,$A64,$620,$E82,$0,$EEE
  36. Wait 45
  37. REDO:
  38. P$="Which book is Daddy Ted reading?" : Gosub PRNTIT : IPX=PL+17 : Clear Key 
  39. Repeat 
  40. PZ=Free : Add TM,1
  41.    K$=Inkey$
  42. SCOD=Scancode
  43. If SCOD=69
  44.    Fade 1 : Wait 15
  45.    For LOP=1 To 15 : Erase LOP : Next LOP
  46.    If Chip Free+Fast Free>250000
  47.       Run "Menu_A500.AMOS"
  48.    Else 
  49.       Run "No_Memory.AMOS"
  50.    End If 
  51. End If 
  52. If SCOD=89
  53. SCOD=0 : CTR=0 : NWLVL : PASSED=1 : CRECT=0 : Goto STRT
  54. End If 
  55.    If K$<>"" : K=Val(K$)
  56.       If K>0 and K<BOOKT+1
  57.           Extension_1_022E 1,3,0,0
  58.  Extension_8_0006 PL+10,198,K$-" " : Add TRY,1 : Wait 30
  59.          If K=BOOKREAD : GS(PASSED,2)=True : Add CRECT,1 : DNE=True : WIN=True : End If 
  60.          If K<>BOOKREAD : DNE=True : WIN=0 : End If 
  61.       End If 
  62.    End If 
  63.    If Rnd(200)=5 : ANSTR : Wait Vbl : End If 
  64. Wait Vbl 
  65. Until DNE=True
  66. DNE=0
  67. If WIN=0
  68. Amal 7,"Anim 2,(23,4)(24,4)(25,4)(24,4)(23,4)(24,4)(25,4)(24,4)" : Amal On 7
  69. If LEVEL>2 : P$="Wrong." : Gosub PRNTIT : End If 
  70. If TRY<TRIES and LEVEL<3 : Extension_1_022E 1,2,0,0 : P$="Wrong, try again." : Gosub PRNTIT : Wait 20 : Sam Swapped : End If 
  71. WT[2]
  72.    If TRY<TRIES and LEVEL>2
  73.       If K>BOOKREAD
  74.        Extension_1_022E 1,2,0,0
  75. FK$="" : P$="Try a smaller number." : Gosub PRNTIT
  76. For FL=1 To 5
  77. FK$=Inkey$ : If FK$<>"" : FL=5 : Goto NOF : End If 
  78. Bob 30,130,110,22 : Wait 10 : Bob 30,-300,-300,72 : Wait 10
  79. NOF:
  80. Next FL
  81. End If 
  82.       If K<BOOKREAD
  83.        Extension_1_022E 1,2,0,0
  84. FK$="" : P$="Try a bigger number." : Gosub PRNTIT
  85. For FL=1 To 5
  86. FK$=Inkey$ : If FK$<>"" : FL=5 : Goto NOF1 : End If 
  87. Bob 30,90,90,21 : Wait 10 : Bob 30,-300,-300,21 : Wait 10
  88. NOF1:
  89. Next FL
  90. End If 
  91. Bob Off 30 : Update : Wait Vbl 
  92.       If LEVEL=3 or LEVEL=4
  93.          For Z=1 To BOOKT : If K=USED(Z) : NOPE=True : End If : Next Z
  94.          If NOPE=0
  95.             For Z=1 To BOOKT
  96.                If K=GS(Z,1)
  97.               Add CTR,1,1 To LIMLVL : USED((LIMLVL-1)+CTR)=K : DX=X Bob(CTR+19) : DY=Y Bob(CTR+19) : DI=I Bob(CTR+19)
  98.              If DI>3 and DI<8 : Bob 25+CTR,DX+15,DY+3,63+GS(Z,1) : WT[1] : End If 
  99.              If DI>7 and DI<11 : Bob 25+CTR,DX+13,DY,63+GS(Z,1) : WT[1] : End If 
  100.                End If 
  101.             Next Z
  102.          End If 
  103.          NOPE=0 : DX=0 : DY=0 : DI=0
  104.       End If 
  105.       Goto REDO
  106.    End If 
  107. If TRY<TRIES and LEVEL<3 : Goto REDO : End If 
  108.    If TRY=TRIES
  109.       P$="Wrong, he's reading book"+Str$(BOOKREAD)+"."
  110.       Add PASSED,1 : If PASSED=7 : PASSED=1 : End If : Gosub PRNTIT : WT[4] : TRY=0
  111.        Extension_1_022E 1,2,0,0 : Wait 100 : Sam Swapped
  112.       CTR=0 : Goto AGAIN
  113.    End If 
  114. End If 
  115. If WIN
  116.     Extension_1_022E 1,1,0,0
  117.    P$="That's right!" : Gosub PRNTIT : CRECT : WT[3]
  118.    If CRECT=6 : CTR=0 : PASSED=1 : CRECT=0 : Goto STRT : End If 
  119.    If CRECT<6 : Goto AGAIN : End If 
  120.    Sam Swapped
  121. End If 
  122. End 
  123. Procedure WT[WTN]
  124. For Z=1 To WTN*40
  125. K$=Inkey$
  126. If K$<>"" : Z=WTN*40 : End If 
  127. Wait 1
  128.    If Rnd(100)=5
  129. ANSTR
  130. Wait Vbl 
  131. End If 
  132. Next Z
  133. End Proc
  134. Procedure CRECT
  135.    Shared SX(),SY(),CTR,RO(),RO,LEVEL,GS(),PASSED,BOOKT,TRY,WIN,CRECT
  136.    If LEVEL=1
  137.       Amal GS(PASSED,1),"Anim 1,(14,8)(15,8)(16,8)(17,8)" : Amal On GS(PASSED,1)
  138.       Add PASSED,1 : TRY=0 : WIN=0
  139.       Wait 60 : Screen Swap : Screen Copy Logic(0) To Physic(0) : Wait Vbl 
  140.    End If 
  141.    If LEVEL=2
  142.       Amal GS(PASSED,1),"Anim 1,(14,8)(15,8)(16,8)(17,8)" : Amal On GS(PASSED,1)
  143.       Add PASSED,1 : TRY=0 : WIN=0
  144.       Wait 60 : Screen Swap : Screen Copy Logic(0) To Physic(0) : Wait Vbl 
  145.    End If 
  146.    If LEVEL>2
  147.       Amal RO(RO),"Anim 1,(14,8)(15,8)(16,8)(17,8)" : Amal On RO(RO)
  148.       Add PASSED,1 : TRY=0 : WIN=0 : Add RO,1 : Wait 60
  149. Screen Copy Physic(0) To Logic(0) : Screen Swap : Wait Vbl 
  150.    End If 
  151.    If CRECT=6
  152.  Extension_1_022E 1,0,0,0
  153. Autoback 1 : Bob Update Off 
  154. For Z=1 To 6
  155. Bob Clear : Paste Bob X Bob(Z),Y Bob(Z),I Bob(Z) : Bob Off Z : Wait Vbl : Bob Draw 
  156. Next Z
  157. Screen Copy Logic(0) To Physic(0) : Bob Update On : Autoback 2
  158.       If LEVEL>2
  159. Autoback 0 : Bob Update Off 
  160. For Z=30 To 19 Step -1 : Bob Clear : Bob Off Z : Bob Draw : Next Z
  161. Screen Copy Logic(0) To Physic(0)
  162. Bob Update On : Autoback 2
  163.  End If 
  164.       Bob 9,253,119,35 : Amal 8,"Anim 1,(27,6)(28,6)" : Amal On 8
  165. Wait 25
  166. Autoback 0 : Bob Update Off : Bob Clear 
  167. Bob 7,260,28,29 : Bob 8,264,92,32 : Bob Draw 
  168. Screen Copy Logic(0),X Bob(7)-20,Y Bob(7)-20,X Bob(7)+60,Y Bob(7)+20 To Physic(0),X Bob(7)-20,Y Bob(7)-20
  169. Screen Copy Logic(0),261,123,320,138 To Physic(0),261,123
  170. Screen Swap : Wait Vbl 
  171. MY=Y Bob(7)
  172. For Z=1 To 11
  173. Bob Clear 
  174. Bob 7,,MY,29 : Bob 8,,MY+64,32 : Add MY,2
  175. Bob Draw 
  176. Screen Copy Logic(0),X Bob(7)-20,Y Bob(7)-20,X Bob(7)+60,Y Bob(7)+20 To Physic(0),X Bob(7)-20,Y Bob(7)-20
  177. Screen Swap : Wait Vbl 
  178. Next Z
  179.  Bob Update On : Autoback 2
  180.       Wait 10 : Amal 7,"Anim 0,(29,12)(30,12)(31,12)" : Amal 8,"Anim 0,(33,18)(34,18)"
  181.       Amal On 7 : Amal On 8 : MY=50 : Autoback 0 : Bob Update Off 
  182.      For Z=1 To 30
  183. Bob Clear : Bob 7,,MY, : Bob 8,,MY+64, : Add MY,1
  184.          If Z=20 : Bob Off 9 : End If 
  185. Bob Draw 
  186. Screen Copy Logic(0),X Bob(7)-2,Y Bob(7)-2,X Bob(7)+60,Y Bob(7)+5 To Physic(0),X Bob(7)-2,Y Bob(7)-2
  187. Screen Swap : Wait Vbl 
  188.       Next Z
  189. Bob Update On : Autoback 2 : Amal Off 7 : Amal Off 8 : Screen Swap : Wait 10
  190. Bob 7,,,44 : Bob 8,250,133,50 : Wait 10
  191.       Amal 7,"Anim 0,(44,6)(45,6)(46,6)(47,6)(48,6)(49,6) ; Move -230,0,230"
  192.       Amal 8,"Anim0,(50,6)(51,6)(52,6)(53,6)(54,6)(55,6) ; Move -230,0,230"
  193. Amal On : While Chanmv(7) : 
  194. Wend : Amal Off 7 : Amal Off 8 : Autoback 0 : Bob Update Off 
  195. Bob Clear : Bob 7,22,78,39 : Bob 8,36,138,43 : Bob Draw 
  196. Screen Copy Logic(0),8,88,85,189 To Physic(0),8,88
  197. Screen Swap : Wait Vbl 
  198.  Bob Update On : Autoback 2
  199.       Amal 7,"Anim 1,(40,6)(41,6)(56,6)" : Amal On 7 : Screen Swap : Wait 30
  200.      Fade 1,$0,$666,$446,$22,$40,$20,$204,$2,$422,$422,$440,$422,$200,$420,$0,$FFF
  201. Wait 20 : Autoback 0 : Bob Update Off 
  202. Bob Clear : Bob 7,33,76,44 : Bob 8,23,130,50 : Bob Draw 
  203. Screen Copy Logic(0),8,68,85,189 To Physic(0),8,68 : Screen Swap : Wait Vbl 
  204.  Bob Update On : Autoback 2 : Wait Vbl 
  205. Amal 7,"Anim0,(44,6)(45,6)(46,6)(47,6)(48,6)(49,6) ; Move -80,0,80"
  206. Amal 8,"Anim0,(50,6)(51,6)(52,6)(53,6)(54,6)(55,6) ; Move -80,0,80"
  207. Amal On : While Chanmv(7) : Wend : Amal Off 7 : Amal Off 8
  208. For Z=9 To 15 : Bob Z,SX(Z-8),SY(Z-8),18 : Channel Z To Bob Z : Next Z
  209. WT[5] : Fade 2 : Wait 30 : PASSED=1 : Music Off : Sam Swapped : Screen Close 0 : Unpack 16 To 0 : Screen Hide 0 : End If 
  210. If PASSED=7 : PASSED=1 : End If 
  211. End Proc
  212. Procedure BOOKL1
  213. Shared BOOKT,BOOKREAD
  214. BX=60 : BY=18 : Autoback 0 : Ink 8 : Bar 43,15 To 168,52
  215. Paste Bob BX-10,25,11
  216. For Z=1 To BOOKT
  217. If Z<>BOOKREAD
  218. Add BI,1,1 To 3 : Paste Bob BX,BY,BI : Paste Bob BX+1,BY+12,Z+63
  219. End If 
  220. Add BX,12 : Next Z
  221. Paste Bob BX,25,12
  222. Screen Copy Logic(0) To Physic(0) : Autoback 2
  223. End Proc
  224. Procedure BOOKL2
  225. Shared RD(),GS(),BOOKT,BOOKREAD,CRECT
  226. RANDOM[BOOKT] : BX=60 : BY=18 : Autoback 0 : Ink 8 : Bar 43,15 To 168,52
  227. Paste Bob BX-10,25,11
  228. For Z=1 To BOOKT
  229. If RD(GS(Z,1))<>BOOKREAD
  230. Add BI,1,1 To 3 : Paste Bob BX,BY,BI : Paste Bob BX+1,BY+12,RD(GS(Z,1))+63
  231. End If 
  232. Add BX,12 : Next Z
  233. Paste Bob BX,25,12
  234. Screen Copy Logic(0) To Physic(0) : Autoback 2
  235. End Proc
  236. Procedure BOOKL3
  237. Shared USED(),RD(),GS(),X(),Y(),BOOKT,BOOKREAD
  238. For Z=1 To 8 : USED(Z)=0 : Next Z : RANDOM[BOOKT]
  239. BX=60 : BY=18 : Autoback 0 : Bob Update Off 
  240. For Z=30 To 19 Step -1
  241.  Bob Clear 
  242.  Bob Off Z
  243.  Bob Draw 
  244.  Next Z
  245. Z=1
  246. C=Rnd(6)+1
  247. RDO:
  248. C1=Rnd(6)+1 : I1=Rnd(6)+1 : I2=Rnd(6)+1
  249. If C1=C : Goto RDO : End If 
  250. Bob 20,X(C),Y(C),I1+3 : Bob 21,X(C1),Y(C1),I2+3
  251. Ink 8 : Bar 43,15 To 168,52
  252. Paste Bob BX-10,25,11
  253. Repeat 
  254. If Rnd(2)=1 and SPC<3 : Add BX,12 : Add SPC,1 : End If 
  255. If RD(GS(Z,1))<>BOOKREAD
  256. Add BI,1,1 To 3 : Paste Bob BX,BY,BI : Paste Bob BX+1,BY+12,RD(GS(Z,1))+63
  257. Add BX,12 : Add PT,1 : USED(PT)=RD(GS(Z,1))
  258. End If 
  259. Add Z,1
  260. Until PT=5
  261. Paste Bob BX+36-(SPC*12),25,12
  262. Screen Copy Logic(0) To Physic(0) : Bob Update On : Autoback 2
  263. End Proc
  264. Procedure BOOKL4
  265. Shared SCB(),USED(),RD(),GS(),X(),Y(),BOOKT,BOOKREAD
  266. RANDOM[7] : For Z=1 To 7 : USED(Z)=0 : SCB(Z)=RD(Z) : Next Z : USED(8)=0
  267. RANDOM[BOOKT]
  268. BX=60 : BY=18 : Autoback 0 : Bob Update Off 
  269. For Z=30 To 19 Step -1
  270.  Bob Clear 
  271.  Bob Off Z
  272.  Bob Draw 
  273.  Next Z
  274. For Z=1 To 4 : I1=Rnd(6)+1 : Bob 19+Z,X(SCB(Z)),Y(SCB(Z)),I1+3 : Next Z
  275. Z=1
  276.  Ink 8 : Bar 43,15 To 168,52
  277. Paste Bob BX-10,25,11
  278. Repeat 
  279. If Rnd(2)=1 and SPC<6 : Add BX,12 : Add SPC,1 : End If 
  280. If RD(GS(Z,1))<>BOOKREAD
  281. Add BI,1,1 To 3 : Paste Bob BX,BY,BI : Paste Bob BX+1,BY+12,RD(GS(Z,1))+63
  282. Add BX,12 : Add PT,1 : USED(PT)=RD(GS(Z,1))
  283. End If 
  284. Add Z,1
  285. Until PT=3
  286. Paste Bob BX+60-(SPC*12),25,12
  287. Screen Copy Logic(0) To Physic(0) : Bob Update On : Autoback 2
  288. End Proc
  289. Procedure NWLVL
  290. '
  291. Shared LEVEL
  292. LEV=LEVEL
  293. Fade 3 : Wait 45 : Bob Off : Wait Vbl : Cls 0 : Screen Swap : Cls 0
  294. YY=80
  295. SPOS=72
  296. For L=0 To 3
  297.    If L<>3 : Paste Bob 89-24+L*47,44+YY,L+SPOS Else Paste Bob 89-24+L*47,44+YY,9+SPOS : End If 
  298. Update : Next L
  299. Paste Bob 128,1+YY-60,SPOS+8
  300. Bob 1,50-24+LEV*48,44+YY,4+SPOS
  301. Limit Bob 0,0 To 319,44+YY : Wait 5
  302. _FADE[1,1]
  303. Update On : Move Y 1,"(1,-1,20)" : Move On 1 : Wait 20
  304. Anim 1,"("+Str$(SPOS+3)+",8)("+Str$(SPOS+4)+",8)("+Str$(SPOS+5)+",8)("+Str$(SPOS+4)+",8)("+Str$(SPOS+3)+",8)("+Str$(SPOS+4)+",8)"
  305. Anim On 1 : Wait 48
  306. MFOL:
  307. Inc LEV
  308. If LEV=5 Then LEV=1 : Goto TTL1
  309. Move X 1,"(1,1,48)" : Move Y 1,"(1,-1,6)(2,-1,2)(4,0,1)(2,1,2)(1,1,2)(2,1,2) (2,-1,2)(1,-1,2)(2,-1,2)(4,0,1)(2,1,2)(1,1,6)"
  310. Anim 1,"("+Str$(SPOS+6)+",1)" : Anim On 1
  311. Update Off : Anim On 1 : Move On 1
  312. While Movon(1)>0
  313.    Wait Vbl : Update 
  314. Wend 
  315. Update On 
  316. Anim 1,"("+Str$(SPOS+6)+",55)("+Str$(SPOS+4)+",1)" : Anim On 1
  317. Wait 60
  318. GOEIO:
  319. Timer=0 : Clear Key : I$=""
  320. While I$<>" " and(I$<>Chr$(13))
  321.    I$=Inkey$ : SC=Scancode
  322.    If Jright(1) or(Mouse Key=2) or SC=78 or SC=89 Then I$=" "
  323.    If Timer>50*4 or Fire(1) or Mouse Key=1 Then I$=Chr$(13)
  324. Wend 
  325.  Extension_1_022E 1,3,0,0
  326. If I$=" " Then Goto MFOL
  327. Fade 1 : Wait 15 : Autoback 0
  328. Goto NDSUB
  329. TTL1:
  330. Anim 1,"("+Str$(SPOS+7)+",1)"
  331. Move X 1,"(1,-1,10)(1,-2,20)" : Move Y 1,"(1,1,20)" : Anim On : Move On 
  332. Wait 100 : Bob 1,50-24+LEV*48,44+YY,4+SPOS : Move Y 1,"(1,-1,20)" : Move On 1 : Wait 20
  333. Anim 1,"("+Str$(SPOS+3)+",8)("+Str$(SPOS+4)+",8)("+Str$(SPOS+5)+",8)("+Str$(SPOS+4)+",8)("+Str$(SPOS+3)+",8)("+Str$(SPOS+4)+",8)"
  334. Anim On 1 : Wait 48
  335. Goto GOEIO
  336. NDSUB:
  337. LEVEL=LEV
  338.    Fade 1 : Wait 15 : Bob Off : Wait Vbl 
  339.    Screen Close 0 : Unpack 16 To 0 : Screen Hide 0
  340.    Clear Key 
  341. End Proc
  342. '
  343. Procedure ANSTR
  344. Shared S,SX(),SY()
  345. STAR$="Anim 1,(18,2)(19,2)(20,2)(19,2)(18,2)" : S=Rnd(6)+1
  346. If Chanan(S+8)=0
  347.    Bob S+8,SX(S),SY(S),18 : Amal S+8,STAR$ : Amal On S+8 : Wait Vbl 
  348. End If 
  349. Wait 5
  350. End Proc
  351. Procedure INIT
  352. Load "teddybooks/chars2.abk" : Make Icon Mask : Extension_8_0016 0,0 : Bank Swap 2,10 : Bload "teddybooks/chars2.abk.cfnt", Extension_8_0044 
  353. End Proc
  354. Procedure GTDTA
  355. Shared SX(),SY(),TX(),TY(),X(),Y()
  356. For Z=1 To 7 : Read X(Z),Y(Z) : Next Z
  357. For Z=1 To 6 : Read TX(Z),TY(Z) : Next Z
  358. For Z=1 To 7 : Read SX(Z),SY(Z) : Next Z
  359. Data 14,162,80,160,136,162,198,159,32,112,96,114,184,113
  360. Data 46,73,80,73,110,73,145,72,175,74,209,73
  361. Data 207,16,211,30,219,24,236,18,249,19,242,25,237,38
  362. End Proc
  363. Procedure RANDOM[AMNT]
  364. Shared RD()
  365. Timer=0 : Wait Rnd(5)+1 : Randomize Timer
  366. For Z=1 To AMNT : RD(Z)=Z : Next Z
  367. Repeat 
  368. Repeat : SWP=Rnd(AMNT) : Until SWP>0
  369. Swap RD(SWP),RD(AMNT) : Add CTR,1
  370. Until CTR=AMNT
  371. End Proc
  372. PRNTIT:
  373. Autoback 0
  374. Cls 13,0,189 To 320,199 : Extension_8_0006 3,198,P$
  375. Screen Copy Logic(0),0,189,320,199 To Physic(0),0,189
  376. PL= Extension_8_0028(P$)
  377. Autoback 2
  378. Return 
  379. Procedure _FADE[X,S]
  380. If X=1 Then Fade S,$0,$EEE,$8AA,$246,$484,$80,$44E,$22E,$E66,$E44,$EE0,$A42,$620,$E84,$0,$E0E : Wait S*15 Else Fade S : Wait S*15
  381. End Proc